home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / ROMENE.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-05-12  |  1.0 KB  |  42 lines
  1. 10 DIM S$(20),SY$(20),B$(30)
  2. 20 CLS:'ROMEN RAKAMINA ÇEVÿRÿ YAPAN PROGRAM. ROMENE.BAS
  3. 30 '
  4. 40 GOSUB 330:'SAYILAR
  5. 50 '
  6. 60 INPUT "SAYIYI GÿRÿN ",Z%  :IF Z%=0 THEN END
  7. 70  IF Z%>3999 THEN BEEP :PRINT :PRINT "HATALI GÿRÿ₧" :END
  8. 80  SS$=STR$(Z%): U=LEN(SS$)
  9. 90 CLS:'
  10. 100 FOR Q=1 TO U
  11. 110   S$(Q)=MID$(SS$,Q,1) : NEXT
  12. 120 '
  13. 130 FOR Q=U TO 2 STEP -1 : L=L+1
  14. 140    A=ABS(VAL(S$(Q)))
  15. 150    ON L GOSUB 210,240,270,300
  16. 160 NEXT : PRINT Z%;"= ";
  17. 170 FOR Q=1 TO U
  18. 180    YS$=YS$+SY$(Q) : NEXT
  19. 190 UZ=LEN(YS$)
  20. 200 FOR DG=1 TO UZ: PRINT MID$(YS$,DG,1);" "; : NEXT : END
  21. 210 '1
  22. 220 IF A<>0 THEN SY$(Q)=B$(A)
  23. 230  RETURN
  24. 240 '2  (10)
  25. 250 IF A<>0 THEN SY$(Q)=B$(A+9)
  26. 260  RETURN
  27. 270 '3  (100)
  28. 280 IF A<>0 THEN SY$(Q)=B$(A+18)
  29. 290  RETURN
  30. 300 '4  (1000)
  31. 310 IF A<>0 THEN SY$(Q)=B$(A+27)
  32. 320  RETURN
  33. 330 '             SAYILAR
  34. 340 FOR S=1 TO  30
  35. 350   READ B$(S)
  36. 360   DATA I,II,III,IV,V,VI,VII,VIII,IX
  37. 370   DATA X,XX,XXX,XL,L,LX,LXX,LXXX,XC
  38. 380   DATA C,CC,CCC,CD,D,DC,DCC,DCCC,CM
  39. 390   DATA M,MM,MMM
  40. 400 NEXT
  41. 410  RETURN:' MURAT NECÿOªLU
  42.